Вы можете сделать вариантную запись так
введите muint64 = запись
case boolean of
истина: (i64: int64);
ложь: (lo32, hi32: кардинал);
конец;
Теперь вы можете просто использовать кардиналы, чтобы заполнить свой uint64 неподписанными данными.
Другой вариант - использовать такой код:
const почтиmaxint64 = 800000045000000 долларов США;
вар muint64: int64;
начать
muint64: = почтиmaxint64;
muint64: = muint64 shl 1;
конец
|
Без поддержки компилятора у вас не так много вариантов.
Я предполагаю, что вы хотите передать значение функции в какой-то внешней DLL. Вам нужно будет объявить параметр как 64-битное целое число со знаком, Int64. Затем все, что вы можете сделать, это передать значение со знаком, которое имеет тот же битовый шаблон, что и желаемое значение без знака. Создайте себе небольшой конвертер с компилятором, который поддерживает 64-битные целые числа без знака.
|
Традиционно реализации Broland страдали от проблем с совместимостью из-за отсутствия наибольшего неподписанного кода, поддерживаемого целевой платформой. Я помню, как использовал значения LongInt вместо DWORD и ждал проблем с самых первых дней Turbo Pascal для Windows. Затем было кардинальное счастье, но нет, D4 представил наибольшее целое число Int64 только в его подписанной форме. Очередной раз.
Таким образом, ваш единственный вариант - полагаться на подписанный фундаментальный тип Int64 и молиться ... подождите, нет, просто используйте преобразование типов Int64Rec для выполнения арифметики по наименьшей и наиболее важной части по отдельности.
Вернуться к постоянному объявлению:
const
foo = 8000004200000001 долларов США; // это будет работать, потому что шестнадцатеричное представление беззнаковое по своей природе
// однако объявленный символ foo становится подписанным значением Int64
// попытка использовать десятичное число приведет к ошибке «Целочисленная константа слишком большая»
// подробности см. в разделе "Истинные константы" в справке D7
процедура TForm1.FormCreate (Отправитель: TObject);
начать
// просто чтобы проверить
Подпись: = IntToHex (foo, SizeOf (Int64) * 2);
конец;
К сожалению, есть другой обходной путь - сменить компилятор. Free Pascal всегда синхронизирует подписанные и неподписанные типы.
Этот фрагмент компилируется и дает правильный результат в Borland Delphi версии 15.0 (он же Delphi 7).
|
Твой ответ
StackExchange.ifUsing ("редактор", function () {
StackExchange.using ("externalEditor", function () {
StackExchange.using ("сниппеты", function () {
StackExchange.snippets.init ();
});
});
}, "фрагменты кода");
StackExchange.ready (функция () {
var channelOptions = {
теги: "" .split (""),
id: "1"
};
initTagRenderer ("". split (""), "" .split (""), channelOptions);
StackExchange.using ("externalEditor", function () {
// Нужно запускать редактор после сниппетов, если сниппеты включены
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using ("сниппеты", function () {
createEditor ();
});
}
else {
createEditor ();
}
});
function createEditor () {
StackExchange.prepareEditor ({
useStacksEditor: ложь,
heartbeatType: 'ответ',
autoActivateHeartbeat: ложь,
convertImagesToLinks: правда,
noModals: правда,
showLowRepImageUploadWarning: true,
РепутацияToPostImages: 10,
bindNavPrevention: правда,
постфикс: "",
imageUploader: {
brandingHtml: "На основе \ u003ca href = \" https: //imgur.com/ \ "\ u003e \ u003csvg class = \" svg-icon \ "width = \" 50 \ "height = \" 18 \ "viewBox = \ "0 0 50 18 \" fill = \ "none \" xmlns = \ "http: //www.w3.org/2000/svg \" \ u003e \ u003cpath d = \ "M46.1709 9.17788C46.1709 8.26454 46.2665 7.94324 47.1084 7.58816C47.4091 7.46349 47.7169 7.36433 48.0099 7.26993C48.9099 6.97997 49.672 6.73443 49.672 5.93063C49.672 5.22043 48.9832 4.61182 48.1414 4.61182C47.4335 4.61182 46.725623.40716284,61182C47.4335 4.61182 46.725623.4623.68 43.1481 6.59048V11.9512C43.1481 13.2535 43.6264 13.8962 44.6595 13.8962C45.6924 13.8962 46.1709 13.2535 46.1709 11.9512V9.17788Z \ "/ \ u003e \ u003cpath d = \" M32.492 10.1419954.037.048.037.048.037.048.037.048.28.048.0 148.048.0 148.048.0 148.048.0 148.48.98.0 148.48.95.48.0 148.048.0 37.048.0 37.048.0 37.048.0 37.0 48.0 48.48.0 148.048.0 148.48.0 148.48.0 148.048.0 34.048.0 37.048.0 370.48.0 148.048.0 148.48.0 148.48.0 148.48.94.0 41.5985 12.6954 41.5985 10.1419V6.59049C41.5985 5.28821 41.1394 4.66232 40.1061 4.66232C39.0732 4.66232 38.5948 5.28821 38.5948 6.59049V9.60062C38.5948 10.8521 38.2696 11.5455 37.0451 11.5454.595 1045835.820 521 35.4954 9.60062V6.59049C35.4954 5.28821 35.0173 4.66232 34.0034 4.66232C32.9703 4.66232 32.492 5.28821 32.492 6.59049V10.1419Z \ "/> \ u003cpath fill-rule = \" evenodd \ "clip-rule = \" evenodd \ " = \ "M25.6622 17.6335C27.8049 17.6335 29.3739 16.9402 30.2537 15.6379C30.8468 14.7755 30.9615 13.5579 30.9615 11.9512V6.59049C30.9615 5.28821 30.4833 4.66231 29.4502 4.66233C28.4833 4.66231 29.4502 4.66233C28.41087C 4.58.4833 4.6623.74.9502 4.66231C28.40334.6554.4502 4.66231C28.40337454.659904.58.40334.65 .1369 4.56087 21.0134 6.57349 21.0134 9.27932C21.0134 11.9852 23.003 13.913 25.3754 13.913C26.5612 13.913 27.4607 13.4902 28.1109 12.6616C28.1109 12.7229 28.1161 12.7799 28.121 12.834.13011228425.2834.2837.132132834.28342 28.1161 12.7799 28.121 12.8343.130132425.234.27.28 15.2321 24.1352 14.9821 23.5661 14.7787C23.176 14.6393 22.8472 14.5218 22.5437 14.5218C21.7977 14.5218 21.2429 15.0123 21.2429 15.6887C21.2429 16.7375 22.9072 17.633525.6622 17.6335ZM24.1317 9.27932C24.1317 7.94324 24.9928 7.09766 26.1024 7.09766C27.2119 7.09766 28.0918 7.94324 28.0918 9.27932C28.0918 10.6321 27.2311 11.5116 26.1024 11.5116C24.9737 \ u0026 \ u0026 \ u003 \ u003 \ u003 \ u003 \ u003 \ u003 \ u000 \ u003 \ u003 \ u003 \ u003 к M16.8045 11.9512C16.8045 13.2535 17.2637 13.8962 18.2965 13.8962C19.3298 13.8962 19.8079 13.2535 19.8079 11.9512V8.12928C19.8079 5.82936 18.4879 4.62866 16.4027 4.62866C15.1594.4.62866.314.2606.98338338338 C15.1594 4.62866 14.2606398338338 13663 4.62866 14.2609.653 8.57809 4.89931 7.9466 5.5079C7.58314 4.9328 7.10506 4.66232 6.51203 4.66232C5.47873 4.66232 5.00066 5.28821 5.00066 6.59049V11.9512C5.00066 13.2535 5.47873 13.8962 6.51203 13.8962.2535 5.47873 13.8962 6.51203 13.8962.25C7.54479.90 13.89121762 8.021032 13.8962.54479.90 13.89121762 8.021032 13.8962.98 5104 6.91179 10.893 7.58817 10.893 8.94108V11.9512C10.893 13.2535 11.3711 13.8962 12.4044 13.8962C13.4375 13.8962 13.9157 13.2535 13.9157 11.9512V8.90741C13.9157 7.58817 14.3365 6.91179 1 5.4269 6.91179C16.4027 6.91179 16.8045 7.58817 16.8045 8.94108V11.9512Z \ "/> \ u003cpath d = \" M3.31675 6.59049C3.31675 5.28821 2.83866 4.66232 1.82471 4.66232C0.791758 4.66221 0.313354 0,791758 13,8962 1,82471 13,8962C2,85798 13,8962 3,31675 13,2535 3,31675 11,9512V6.59049Z \ "/> \ u003cpath d = \" M1,87209 0,400291C0,843612 0,400291 0 1,1159 0 1,98861C0 2,843612 0,400291 0 1,1159 0 1,98861C0 2,8767223,58672,8762,98672,87672,87672,87672,87672,87672,87693,58673,58 3.7234 1.98861C3.7234 1.1159 2.90056 0.400291 1.87209 0.400291Z \ "fill = \" # 1BB76E \ "/> \ u003c / svg> \ u003c / a>",
contentPolicyHtml: "Вклады пользователей под лицензией \ u003ca href = \" https: //stackoverflow.com/help/licensing \ "\ u003ecc by-sa \ u003c / a \ u003e \ u003ca href = \" https://stackoverflow.com / legal / content-policy \ "> (политика содержания) \ u003c / a>",
allowUrls: true
},
onDemand: правда,
discardSelector: ".discard-answer"
, немедленноShowMarkdownHelp: true, enableTables: true, enableSnippets: true
});
}
});
Спасибо за ответ на Stack Overflow!
Обязательно ответьте на вопрос. Предоставьте подробную информацию и поделитесь своим исследованием!
Но избегайте…
Просить о помощи, разъяснениях или отвечать на другие ответы.
Делать заявления, основанные на мнении; подкрепите их рекомендациями или личным опытом.
Чтобы узнать больше, ознакомьтесь с нашими советами по написанию отличных ответов.
Черновик сохранен
Черновик отклонен
Зарегистрируйтесь или войдите под своим ником
StackExchange.ready (функция () {
StackExchange.helpers.onClickDraftSave ('# ссылка для входа');
});
Зарегистрируйтесь с помощью Google
Зарегистрируйтесь через Facebook
Зарегистрируйтесь, используя электронную почту и пароль
Разместить
Опубликовать как гость
имя
Эл. адрес
Обязательно, но не отображается
StackExchange.ready (
function () {
StackExchange.openid.initPostLogin ('. New-post-login', 'https% 3a% 2f% 2fstackoverflow.com% 2fquestions% 2f6378107% 2fhow-to-define-an-unsigned-64-bit-integer-in-delphi7% 23новый ответ ',' страница_вопроса ');
}
);
Опубликовать как гость
имя
Эл. адрес
Обязательно, но не отображается
Разместите свой ответ
Отменить
Нажимая «Опубликовать ответ», вы соглашаетесь с нашими условиями обслуживания, политикой конфиденциальности и политикой файлов cookie.
Не тот ответ, который вы ищете? Просмотрите другие вопросы с метками delphi uint64 или задайте свой вопрос.